home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
PTRINLN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-13
|
367b
|
22 lines
PROGRAM PointerINLINE;
USES Crt;
TYPE
IntPtr = ^Integer;
VAR
MyPtr : IntPtr;
BEGIN
ClrScr;
New(MyPtr);
MyPtr^ := 42;
Writeln('Before: ',MyPtr^);
INLINE($C4/$3E/MyPtr/ { LES DI,MyPtr }
$26/$80/$05/$03); { ADD WORD PTR ES:[DI],03H }
Writeln('After: ',MyPtr^); { '45' should be new value. }
Readln
END.